﻿Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Juegos_Weedze.SA



'''<summary>
'''Se trata de una clase de prueba para AdministradorTest y se pretende que
'''contenga todas las pruebas unitarias AdministradorTest.
'''</summary>
<TestClass()> _
Public Class AdministradorTest


    Private testContextInstance As TestContext

    '''<summary>
    '''Obtiene o establece el contexto de la prueba que proporciona
    '''la información y funcionalidad para la ejecución de pruebas actual.
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(ByVal value As TestContext)
            testContextInstance = Value
        End Set
    End Property

#Region "Atributos de prueba adicionales"
    '
    'Puede utilizar los siguientes atributos adicionales mientras escribe sus pruebas:
    '
    'Use ClassInitialize para ejecutar código antes de ejecutar la primera prueba en la clase 
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'Use ClassCleanup para ejecutar código después de haber ejecutado todas las pruebas en una clase
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    'Use TestInitialize para ejecutar código antes de ejecutar cada prueba
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    'Use TestCleanup para ejecutar código después de que se hayan ejecutado todas las pruebas
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region


    '''<summary>
    '''Una prueba de AñadirEmpleado
    '''</summary>
    <TestMethod()> _
    Public Sub AñadirEmpleadoTest()
        Dim usu As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim passw As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim target As Administrador = New Administrador(usu, passw) ' TODO: Inicializar en un valor adecuado
        Dim empleado As Employer = Nothing ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        actual = target.AñadirEmpleado(empleado)
        Assert.AreEqual(expected, actual)
    End Sub

    '''<summary>
    '''Una prueba de Constructor Administrador
    '''</summary>
    <TestMethod()> _
    Public Sub AdministradorConstructorTest()
        Dim usu As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim passw As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim target As Administrador = New Administrador(usu, passw)
    End Sub

    '''<summary>
    '''Una prueba de AñadirCliente
    '''</summary>
    <TestMethod()> _
    Public Sub AñadirClienteTest()
        Dim usu As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim passw As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim target As Administrador = New Administrador(usu, passw) ' TODO: Inicializar en un valor adecuado
        Dim cliente As Cliente = Nothing ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        actual = target.AñadirCliente(cliente)
        Assert.AreEqual(expected, actual)
    End Sub

    '''<summary>
    '''Una prueba de AñadirProducto
    '''</summary>
    <TestMethod()> _
    Public Sub AñadirProductoTest()
        Dim usu As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim passw As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim target As Administrador = New Administrador(usu, passw) ' TODO: Inicializar en un valor adecuado
        Dim producto As Producto = Nothing ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        actual = target.AñadirProducto(producto)
        Assert.AreEqual(expected, actual)
    End Sub

    '''<summary>
    '''Una prueba de BorrarClientes
    '''</summary>
    <TestMethod()> _
    Public Sub BorrarClientesTest()
        Dim usu As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim passw As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim target As Administrador = New Administrador(usu, passw) ' TODO: Inicializar en un valor adecuado
        Dim cliente As Cliente = Nothing ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        actual = target.BorrarClientes(cliente)
        Assert.AreEqual(expected, actual)
    End Sub

    '''<summary>
    '''Una prueba de BorrarEmpleado
    '''</summary>
    <TestMethod()> _
    Public Sub BorrarEmpleadoTest()
        Dim usu As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim passw As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim target As Administrador = New Administrador(usu, passw) ' TODO: Inicializar en un valor adecuado
        Dim empleado As Employer = Nothing ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        actual = target.BorrarEmpleado(empleado)
        Assert.AreEqual(expected, actual)
    End Sub

    '''<summary>
    '''Una prueba de BorrarProducto
    '''</summary>
    <TestMethod()> _
    Public Sub BorrarProductoTest()
        Dim usu As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim passw As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim target As Administrador = New Administrador(usu, passw) ' TODO: Inicializar en un valor adecuado
        Dim producto As Producto = Nothing ' TODO: Inicializar en un valor adecuado
        Dim expected As String = String.Empty ' TODO: Inicializar en un valor adecuado
        Dim actual As String
        actual = target.BorrarProducto(producto)
        Assert.AreEqual(expected, actual)
    End Sub
End Class
